home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Comms & Internet / LinkConverter 1.1.2 / Dialog Director v0.7 / Res Utils Examples / App to aete.as next >
Encoding:
Text File  |  1998-02-03  |  940 b   |  33 lines  |  [TEXT/ToyS]
  1. open [choose file of type "APPL" with prompt "Choose an application file:"]
  2.  
  3. on open fileList
  4.     repeat with f1 in fileList
  5.         set rf to false
  6.         try
  7.             set v1 to false
  8.             set v2 to false
  9.             set rf to res open f1
  10.             set aete to res get rf type "aete" id 0
  11.             try
  12.                 set v1 to res get rf type "vers" id 1
  13.             on error
  14.             end try
  15.             try
  16.                 set v2 to res get rf type "vers" id 2
  17.             on error
  18.             end try
  19.             res close rf
  20.             set rf to false
  21.             set f2 to new file default name ((info for f1)'s name) & "’s aete"
  22.             res create f2 creator type "ascr" file type "osax"
  23.             set rf to res open f2 with write permission
  24.             res put rf type "aete" id 0 data aete
  25.             if v1 ≠ false then res put rf type "vers" id 1 data v1
  26.             if v2 ≠ false then res put rf type "vers" id 2 data v2
  27.             res close rf
  28.         on error m number n from f to t partial result p
  29.             if rf ≠ false then res close rf
  30.             error m number n from f to t partial result p
  31.         end try
  32.     end repeat
  33. end open